perm filename SWITCH.SAI[HAK,HPM] blob sn#430371 filedate 1979-04-06 generic text, type T, neo UTF8
BEGIN "SWITCH"
INTEGER I,J;
OUTSTR("VIDEO CHANNEL:"); J←CVO(INCHWL);
OUTSTR("AUDIO CHANNEL:"); I←(CVO(INCHWL)*2↑18) LOR '324000000000;
 START_CODE
	MOVE	1,I;
	CALLI	1,'400110;
	HRRI	1,J;
	HRLI	1,'401000;
	CALLI	1,'400070;
	MOVE	1,1;
 END;
END